(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     21624,        499]
NotebookOptionsPosition[     20896,        472]
NotebookOutlinePosition[     21283,        489]
CellTagsIndexPosition[     21240,        486]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"c", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<C3\>\"", ",", "\"\<C4\>\"", ",", "\"\<E4\>\"", ",", "\"\<G4\>\"", 
       ",", "\"\<C5\>\"", ",", "\"\<E5\>\"", ",", "\"\<G5\>\""}], "}"}], ",", 
     RowBox[{"(*", 
      RowBox[{"1", "^"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<A2\>\"", ",", "\"\<A3\>\"", ",", "\"\<C4\>\"", ",", "\"\<E4\>\"", 
       ",", "\"\<A4\>\"", ",", "\"\<C5\>\"", ",", "\"\<E5\>\""}], "}"}], ",", 
     RowBox[{"(*", "6", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<F2\>\"", ",", "\"\<F3\>\"", ",", "\"\<A3\>\"", ",", "\"\<C4\>\"", 
       ",", "\"\<F4\>\"", ",", "\"\<A4\>\"", ",", "\"\<C5\>\""}], "}"}], ",", 
     RowBox[{"(*", "4", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<G2\>\"", ",", "\"\<G3\>\"", ",", "\"\<B3\>\"", ",", "\"\<D4\>\"", 
       ",", "\"\<G4\>\"", ",", "\"\<B4\>\"", ",", "\"\<D5\>\""}], "}"}]}], 
    "    ", 
    RowBox[{"(*", "5", "*)"}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.722197578990754*^9, 3.7221976268715024`*^9}, {
  3.7221976716175003`*^9, 3.722197899334956*^9}, {3.7221979336327868`*^9, 
  3.722197969383865*^9}, {3.7221980392746563`*^9, 3.72219804041873*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "\:628a\:97f3\:7b26\:4e00\:5206\:4e3a\:4e8c", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"sl", "[", 
    RowBox[{"array_", ",", "con_"}], "]"}], ":=", 
   RowBox[{"If", "[", 
    RowBox[{"con", ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"SoundNote", "[", 
        RowBox[{
         RowBox[{
         "array", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"array", "\[LeftDoubleBracket]", 
            RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
           RowBox[{
            RowBox[{"array", "\[LeftDoubleBracket]", 
             RowBox[{"2", ",", "2"}], "\[RightDoubleBracket]"}], "-", 
            RowBox[{"1", "/", "4"}]}]}], "}"}], ",", 
         RowBox[{
         "array", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], 
        "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"SoundNote", "[", 
        RowBox[{
         RowBox[{
         "array", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"array", "\[LeftDoubleBracket]", 
             RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}], "+", 
            RowBox[{"1", "/", "4"}]}], ",", 
           RowBox[{"array", "\[LeftDoubleBracket]", 
            RowBox[{"2", ",", "2"}], "\[RightDoubleBracket]"}]}], "}"}], ",", 
         RowBox[{
         "array", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], 
        "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"SoundNote", "[", 
      RowBox[{
       RowBox[{
       "array", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", 
       RowBox[{
       "array", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", 
       RowBox[{
       "array", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], 
      "]"}]}], "\[IndentingNewLine]", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.722254413816532*^9, 3.7222546072218466`*^9}, 
   3.7222546775685043`*^9, {3.7222548231983166`*^9, 3.7222548410711803`*^9}, {
   3.7222549016545963`*^9, 3.722254962331995*^9}, {3.7222552671259494`*^9, 
   3.7222552776360455`*^9}, {3.722255314640726*^9, 3.722255318093668*^9}, {
   3.722255385630083*^9, 3.7222553877251797`*^9}, {3.722255873107031*^9, 
   3.722255926311207*^9}, {3.722255995493985*^9, 3.7222559956728477`*^9}, {
   3.722256026446639*^9, 3.722256026945386*^9}, {3.7222562751742153`*^9, 
   3.7222563438001165`*^9}, {3.7222567661280165`*^9, 3.7222568578998404`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Accomp", "[", 
   RowBox[{"st_", ",", "slshli_", ",", "moveli_"}], "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"SoundNote", "[", 
         RowBox[{
          RowBox[{"c", "\[LeftDoubleBracket]", 
           RowBox[{"n", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"8", "s"}], "+", 
             RowBox[{"2", 
              RowBox[{"(", 
               RowBox[{"n", "-", "1"}], ")"}]}]}], ",", 
            RowBox[{
             RowBox[{"8", "s"}], "+", 
             RowBox[{"2", "n"}]}]}], "}"}], ",", "\"\<Violin\>\""}], "]"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"n", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"sl", "[", 
         RowBox[{
          RowBox[{"{", "\[IndentingNewLine]", 
           RowBox[{"(*", "\:8f6c\:4f4d", "*)"}], " ", 
           RowBox[{
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"MemberQ", "[", 
               RowBox[{"moveli", ",", "m"}], "]"}], ",", 
              RowBox[{"c", "\[LeftDoubleBracket]", 
               RowBox[{"n", ",", 
                RowBox[{"3", ";;", "5"}]}], "\[RightDoubleBracket]"}], ",", 
              RowBox[{"c", "\[LeftDoubleBracket]", 
               RowBox[{"n", ",", 
                RowBox[{"1", ";;", "4"}]}], "\[RightDoubleBracket]"}]}], 
             "]"}], "\[IndentingNewLine]", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"8", "s"}], "+", 
               RowBox[{"2", 
                RowBox[{"(", 
                 RowBox[{"n", "-", "1"}], ")"}]}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"m", "-", "1"}], ")"}], "/", "2"}]}], ",", 
              RowBox[{
               RowBox[{"8", "s"}], "+", 
               RowBox[{"2", 
                RowBox[{"(", 
                 RowBox[{"n", "-", "1"}], ")"}]}], "+", 
               RowBox[{"m", "/", "2"}]}]}], "}"}], ",", "\"\<Piano\>\""}], 
           "}"}], ",", 
          RowBox[{"MemberQ", "[", 
           RowBox[{"slshli", ",", "m"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"n", ",", "1", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"m", ",", "1", ",", "4"}], "}"}]}], "]"}]}], 
     "\[IndentingNewLine]", "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"s", ",", "0", ",", 
      RowBox[{"st", "-", "1"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.660384408851067*^9, 3.660384607708441*^9}, {
   3.660384638345193*^9, 3.6603846872719917`*^9}, {3.6603847398339977`*^9, 
   3.6603847672735677`*^9}, 3.660384824592846*^9, {3.6603849459867897`*^9, 
   3.6603849474508734`*^9}, 3.660385090112033*^9, 3.66038519584208*^9, 
   3.660385298213936*^9, 3.660385433979701*^9, 3.660385540221778*^9, 
   3.6603857014329987`*^9, 3.6603858333065414`*^9, 3.660385902778515*^9, {
   3.722197139596427*^9, 3.7221972246746635`*^9}, {3.722197256792407*^9, 
   3.7221972760320787`*^9}, {3.722197399133976*^9, 3.722197478817627*^9}, {
   3.7221979768650246`*^9, 3.7221980564028244`*^9}, {3.722198101210281*^9, 
   3.722198142128916*^9}, {3.7221981750927687`*^9, 3.722198232445656*^9}, {
   3.7221982643329363`*^9, 3.7221982675845165`*^9}, {3.722198353486167*^9, 
   3.7221983924837656`*^9}, {3.7221986124373918`*^9, 
   3.7221986673658347`*^9}, {3.7221987798038316`*^9, 
   3.7221988438074164`*^9}, {3.7222000698579082`*^9, 3.722200075798376*^9}, {
   3.722254665868634*^9, 3.7222546710433793`*^9}, {3.722255228858637*^9, 
   3.722255260087762*^9}, {3.7222566580754404`*^9, 3.722256737553089*^9}, {
   3.7222570857397904`*^9, 3.7222571645161653`*^9}, {3.722257206356926*^9, 
   3.7222572472580023`*^9}, {3.722257365837365*^9, 3.7222574053589635`*^9}, {
   3.7222580883675222`*^9, 3.7222582049078426`*^9}, {3.7222595327028465`*^9, 
   3.7222595433456*^9}}],

Cell[BoxData[
 RowBox[{"Sound", "[", 
  RowBox[{"Flatten", "[", 
   RowBox[{"Accomp", "[", 
    RowBox[{"4", ",", 
     RowBox[{"{", "2", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "3"}], "}"}]}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.722258030972494*^9, 3.72225805222546*^9}, {
  3.7222595495000167`*^9, 3.7222595498346148`*^9}}],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 0.5}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 3}],

Cell[BoxData[
 RowBox[{
  RowBox[{"cs", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<G4\>\"", ",", "\"\<C5\>\"", ",", "\"\<E5\>\"", ",", "\"\<G5\>\"", 
       ",", "\"\<C6\>\"", ",", "\"\<E6\>\"", ",", "\"\<G6\>\""}], "}"}], ",", 
     RowBox[{"(*", 
      RowBox[{"1", "^"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<E4\>\"", ",", "\"\<A4\>\"", ",", "\"\<C5\>\"", ",", "\"\<E5\>\"", 
       ",", "\"\<A5\>\"", ",", "\"\<C6\>\"", ",", "\"\<E6\>\""}], "}"}], ",", 
     RowBox[{"(*", "6", "*)"}], 
     RowBox[{"{", 
      RowBox[{
      "\"\<C4\>\"", ",", "\"\<F4\>\"", ",", "\"\<A4\>\"", ",", "\"\<C5\>\"", 
       ",", "\"\<F5\>\"", ",", "\"\<A5\>\"", ",", "\"\<C6\>\""}], "}"}], ",", 
     RowBox[{"(*", "4", "*)"}], 
     RowBox[{"{", 
      RowBox[{
      "\"\<D4\>\"", ",", "\"\<G4\>\"", ",", "\"\<B4\>\"", ",", "\"\<D5\>\"", 
       ",", "\"\<G5\>\"", ",", "\"\<B5\>\"", ",", "\"\<D6\>\""}], "}"}]}], 
    "    ", 
    RowBox[{"(*", "5", "*)"}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.722197578990754*^9, 3.7221976268715024`*^9}, {
   3.7221976716175003`*^9, 3.722197899334956*^9}, {3.7221979336327868`*^9, 
   3.722197969383865*^9}, {3.7221980392746563`*^9, 3.72219804041873*^9}, {
   3.722199829796664*^9, 3.722199845002311*^9}, 3.7221999071059017`*^9, {
   3.7222456532250443`*^9, 3.722245680467621*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Gen", "[", 
   RowBox[{"num_", ",", "st_", ",", "slshli_", ",", "moveli_"}], "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"g", "=", 
     RowBox[{
      RowBox[{"RealDigits", "[", 
       RowBox[{"num", ",", "10", ",", 
        RowBox[{"8", "*", 
         RowBox[{"(", 
          RowBox[{"st", "+", "1"}], ")"}]}]}], "]"}], "\[LeftDoubleBracket]", 
      "1", "\[RightDoubleBracket]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"mainli", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"OddQ", "[", "s", "]"}], ",", 
         RowBox[{"g", "\[LeftDoubleBracket]", 
          RowBox[{
           RowBox[{
            RowBox[{"8", "s"}], "-", "6"}], ";;", 
           RowBox[{
            RowBox[{"8", "s"}], "-", "1"}]}], "\[RightDoubleBracket]"}], ",", 
         RowBox[{"g", "\[LeftDoubleBracket]", 
          RowBox[{
           RowBox[{
            RowBox[{"8", "s"}], "-", "10"}], ";;", 
           RowBox[{"8", "s"}]}], "\[RightDoubleBracket]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"s", ",", "1", ",", "st"}], "}"}]}], "]"}]}], ";", 
    RowBox[{"(*", "\:5947\:5076\:5c0f\:8282\:758f\:5bc6\:4ea4\:9519", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Sound", "[", 
     RowBox[{"Flatten", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Accomp", "[", 
         RowBox[{"st", ",", "slshli", ",", "moveli"}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"MemberQ", "[", 
              RowBox[{
               RowBox[{"mainli", "\[LeftDoubleBracket]", 
                RowBox[{"Ceiling", "[", 
                 RowBox[{"i", "/", 
                  RowBox[{"(", 
                   RowBox[{"8", "*", "4"}], ")"}]}], "]"}], 
                "\[RightDoubleBracket]"}], ",", 
               RowBox[{"Mod", "[", 
                RowBox[{"i", ",", "8", ",", "1"}], "]"}]}], "]"}], "||", 
             RowBox[{
              RowBox[{"Mod", "[", 
               RowBox[{
                RowBox[{"Ceiling", "[", 
                 RowBox[{"i", "/", "8"}], "]"}], ",", "4"}], "]"}], 
              "\[Equal]", "3"}]}], ",", 
            RowBox[{
            "(*", "\:4e3b\:65cb\:5f8b\:7684\:8282\:594f\:8868", "*)"}], 
            RowBox[{"SoundNote", "[", 
             RowBox[{
              RowBox[{"cs", "\[LeftDoubleBracket]", 
               RowBox[{
                RowBox[{"Mod", "[", 
                 RowBox[{
                  RowBox[{"Ceiling", "[", 
                   RowBox[{"i", "/", "8"}], "]"}], ",", "4", ",", "1"}], 
                 "]"}], ",", "\[IndentingNewLine]", 
                RowBox[{
                "(*", "\:4e3b\:65cb\:5f8b\:6bcf\:5c0f\:8282\:7528\:76f8\:540c\
\:5e8f\:5217", "*)"}], " ", 
                RowBox[{
                 RowBox[{"Mod", "[", 
                  RowBox[{
                   RowBox[{"g", "\[LeftDoubleBracket]", 
                    RowBox[{
                    RowBox[{"Mod", "[", 
                    RowBox[{"i", ",", "8", ",", "1"}], "]"}], "+", 
                    RowBox[{
                    RowBox[{"Floor", "[", 
                    RowBox[{"i", "/", "32"}], "]"}], "*", "8"}]}], 
                    "\[RightDoubleBracket]"}], ",", "6"}], "]"}], "+", 
                 "2"}]}], "\[RightDoubleBracket]"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"i", "-", "1"}], ")"}], "/", "4"}], ",", 
                RowBox[{"i", "/", "4"}]}], "}"}], ",", "\"\<Flute\>\""}], 
             "]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{"32", "*", "st"}]}], "}"}]}], "]"}]}], 
       "\[IndentingNewLine]", "}"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.660384408851067*^9, 3.660384607708441*^9}, {
   3.660384638345193*^9, 3.6603846872719917`*^9}, {3.6603847398339977`*^9, 
   3.6603847672735677`*^9}, 3.660384824592846*^9, {3.6603849459867897`*^9, 
   3.6603849474508734`*^9}, 3.660385090112033*^9, 3.66038519584208*^9, 
   3.660385298213936*^9, 3.660385433979701*^9, 3.660385540221778*^9, 
   3.6603857014329987`*^9, 3.6603858333065414`*^9, 3.660385902778515*^9, {
   3.722197139596427*^9, 3.7221972246746635`*^9}, {3.722197256792407*^9, 
   3.7221972760320787`*^9}, {3.722197399133976*^9, 3.722197478817627*^9}, {
   3.7221979768650246`*^9, 3.7221980564028244`*^9}, {3.722198101210281*^9, 
   3.722198142128916*^9}, {3.7221981750927687`*^9, 3.722198232445656*^9}, {
   3.7221982643329363`*^9, 3.7221982675845165`*^9}, {3.722198353486167*^9, 
   3.7221983924837656`*^9}, {3.7221986124373918`*^9, 
   3.7221986673658347`*^9}, {3.7221987798038316`*^9, 
   3.7221988438074164`*^9}, {3.7221990757519393`*^9, 3.722199164128261*^9}, {
   3.7221992083556995`*^9, 3.722199209323332*^9}, {3.722199380231675*^9, 
   3.722199393032176*^9}, {3.722199428942648*^9, 3.7221994675962663`*^9}, {
   3.722199580127279*^9, 3.7221995861228046`*^9}, {3.722199659105898*^9, 
   3.7221997053140497`*^9}, {3.7221997815566764`*^9, 3.722199783516164*^9}, 
   3.722199915469581*^9, 3.722199958996092*^9, {3.7222000828720894`*^9, 
   3.7222001230228653`*^9}, {3.7222006703754454`*^9, 3.722200752963072*^9}, {
   3.7222018263958*^9, 3.7222018291206956`*^9}, {3.722245707729942*^9, 
   3.722245722248347*^9}, {3.7222458502806826`*^9, 3.7222458537844067`*^9}, {
   3.722258436325341*^9, 3.7222584630233502`*^9}, {3.7222584948633657`*^9, 
   3.7222585003825254`*^9}, {3.7222586779778304`*^9, 3.722258711965848*^9}, 
   3.7222589666124935`*^9, {3.722259177007092*^9, 3.722259210197703*^9}, {
   3.72225933584492*^9, 3.722259339011588*^9}, {3.7222593963583083`*^9, 
   3.722259399351637*^9}, {3.7222595630759144`*^9, 3.722259570745304*^9}, {
   3.7222596826574097`*^9, 3.72225968384059*^9}, {3.722259731762162*^9, 
   3.722259735442688*^9}, {3.7222597815701447`*^9, 3.7222597840398808`*^9}, {
   3.722260227960044*^9, 3.7222602648461995`*^9}, {3.722260395436321*^9, 
   3.722260395590135*^9}, {3.722260516527502*^9, 3.7222606155513372`*^9}, {
   3.7222609640151052`*^9, 3.7222610074454007`*^9}, 3.722261054081846*^9, {
   3.722261111650982*^9, 3.72226111451497*^9}, {3.7222612960936594`*^9, 
   3.7222613323940616`*^9}, {3.722261435887495*^9, 3.722261571855008*^9}, {
   3.722261701271932*^9, 3.722261704731249*^9}, {3.7222617462760997`*^9, 
   3.722261746541273*^9}, {3.722262008014653*^9, 3.7222620091659145`*^9}, {
   3.722262752732912*^9, 3.722262767674827*^9}, {3.7222628044232645`*^9, 
   3.722262881735465*^9}, {3.722263166198472*^9, 3.722263169888199*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<pi.mp3\>\"", ",", 
   RowBox[{"Gen", "[", 
    RowBox[{"\[Pi]", ",", "8", ",", 
     RowBox[{"{", "2", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "3"}], "}"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<e.mp3\>\"", ",", 
   RowBox[{"Gen", "[", 
    RowBox[{"E", ",", "8", ",", 
     RowBox[{"{", "2", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "3"}], "}"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<sqrt2.mp3\>\"", ",", 
   RowBox[{"Gen", "[", 
    RowBox[{
     SqrtBox["2"], ",", "8", ",", 
     RowBox[{"{", "2", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "3"}], "}"}]}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7222006119027863`*^9, 3.7222006297171316`*^9}, {
  3.722200743995179*^9, 3.722200764694318*^9}, {3.7222015083298726`*^9, 
  3.722201510614252*^9}, {3.722201569073743*^9, 3.722201584309803*^9}, {
  3.7222018363896017`*^9, 3.7222018521624436`*^9}, {3.722260630940903*^9, 
  3.7222606808726826`*^9}, {3.7222607150405283`*^9, 3.7222607299279027`*^9}, {
  3.7222615952948046`*^9, 3.7222616017836018`*^9}}],

Cell[BoxData["\<\"pi.mp3\"\>"], "Output",
 CellChangeTimes->{
  3.722200772388543*^9, 3.72220151928876*^9, {3.722201558312885*^9, 
   3.7222015792028766`*^9}, 3.7222018597641087`*^9, 3.722245758049761*^9, 
   3.7222459022826185`*^9, 3.7222585185041924`*^9, 3.7222589778651876`*^9, {
   3.722259203279795*^9, 3.7222592273439894`*^9}, 3.7222593462886868`*^9, 
   3.722259421355807*^9, 3.7222596003295803`*^9, 3.7222596953303723`*^9, 
   3.722259799901163*^9, 3.7222602755982275`*^9, 3.7222604148140097`*^9, 
   3.722260693315063*^9, 3.722260736443821*^9, 3.7222616083065023`*^9, 
   3.7222617635237956`*^9, 3.72226201787848*^9, 3.72226289286112*^9, 
   3.7222631856156387`*^9}],

Cell[BoxData["\<\"e.mp3\"\>"], "Output",
 CellChangeTimes->{
  3.722200772388543*^9, 3.72220151928876*^9, {3.722201558312885*^9, 
   3.7222015792028766`*^9}, 3.7222018597641087`*^9, 3.722245758049761*^9, 
   3.7222459022826185`*^9, 3.7222585185041924`*^9, 3.7222589778651876`*^9, {
   3.722259203279795*^9, 3.7222592273439894`*^9}, 3.7222593462886868`*^9, 
   3.722259421355807*^9, 3.7222596003295803`*^9, 3.7222596953303723`*^9, 
   3.722259799901163*^9, 3.7222602755982275`*^9, 3.7222604148140097`*^9, 
   3.722260693315063*^9, 3.722260736443821*^9, 3.7222616083065023`*^9, 
   3.7222617635237956`*^9, 3.72226201787848*^9, 3.72226289286112*^9, 
   3.722263191301575*^9}],

Cell[BoxData["\<\"sqrt2.mp3\"\>"], "Output",
 CellChangeTimes->{
  3.722200772388543*^9, 3.72220151928876*^9, {3.722201558312885*^9, 
   3.7222015792028766`*^9}, 3.7222018597641087`*^9, 3.722245758049761*^9, 
   3.7222459022826185`*^9, 3.7222585185041924`*^9, 3.7222589778651876`*^9, {
   3.722259203279795*^9, 3.7222592273439894`*^9}, 3.7222593462886868`*^9, 
   3.722259421355807*^9, 3.7222596003295803`*^9, 3.7222596953303723`*^9, 
   3.722259799901163*^9, 3.7222602755982275`*^9, 3.7222604148140097`*^9, 
   3.722260693315063*^9, 3.722260736443821*^9, 3.7222616083065023`*^9, 
   3.7222617635237956`*^9, 3.72226201787848*^9, 3.72226289286112*^9, 
   3.7222631973314013`*^9}]
}, Open  ]]
},
WindowSize->{1910, 955},
WindowMargins->{{0, Automatic}, {1076, Automatic}},
Magnification:>3. Inherited,
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (2016\:5e748\:670817\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1358, 29, 382, "Input"],
Cell[1919, 51, 2633, 57, 640, "Input"],
Cell[4555, 110, 4098, 92, 726, "Input"],
Cell[8656, 204, 358, 9, 136, "Input"],
Cell[9017, 215, 273, 9, 16, "Text"],
Cell[9293, 226, 1441, 31, 382, "Input"],
Cell[10737, 259, 6759, 138, 1176, "Input"],
Cell[CellGroupData[{
Cell[17521, 401, 1325, 32, 522, "Input"],
Cell[18849, 435, 675, 10, 129, "Output"],
Cell[19527, 447, 672, 10, 129, "Output"],
Cell[20202, 459, 678, 10, 129, "Output"]
}, Open  ]]
}
]
*)

